
'
' *  NHibernate 代码模版
' 

Imports System.Collections.Generic

Namespace NCS
	''' <summary>
	'''	
	''' </summary>
	<Serializable()> _
	Public Class program

		#Region "构造方法"
		Public Sub New()
			m_tablehead1 = Nothing
			m_tablehead2 = Nothing
			m_id = 0
			m_sampleId = 0
			m_isON = False
			m_xuhao = 0
			m_sessionid = 0
			m_lastUser = Nothing
			m_autoLogon = False
			m_tpid = 0

			m_demo = False
		End Sub
		#End Region


		#Region "私有变量"
		Private m_tablehead1 As String
		Private m_tablehead2 As String
		Private m_id As Integer
		Private m_sampleId As Integer
		Private m_isON As Boolean
		Private m_xuhao As Short
		Private m_sessionid As Integer
		Private m_lastUser As String
		Private m_autoLogon As Boolean
		Private m_tpid As Integer
		Private m_demo As Boolean

		#End Region


		#Region "公有属性"

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property tablehead1() As String
			Get
				Return m_tablehead1
			End Get
			Set
				m_tablehead1 = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property tablehead2() As String
			Get
				Return m_tablehead2
			End Get
			Set
				m_tablehead2 = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property id() As Integer
			Get
				Return m_id
			End Get
			Set
				m_id = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sampleId() As Integer
			Get
				Return m_sampleId
			End Get
			Set
				m_sampleId = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property isON() As Boolean
			Get
				Return m_isON
			End Get
			Set
				m_isON = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property xuhao() As Short
			Get
				Return m_xuhao
			End Get
			Set
				m_xuhao = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sessionid() As Integer
			Get
				Return m_sessionid
			End Get
			Set
				m_sessionid = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property lastUser() As String
			Get
				Return m_lastUser
			End Get
			Set
				m_lastUser = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property autoLogon() As Boolean
			Get
				Return m_autoLogon
			End Get
			Set
				m_autoLogon = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property tpid() As Integer
			Get
				Return m_tpid
			End Get
			Set
				m_tpid = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property demo() As Boolean
			Get
				Return m_demo
			End Get
			Set
				m_demo = value
			End Set
		End Property

		#End Region

		#Region "Rewrite Equals and HashCode"
		''' <summary>
		''' 
		''' </summary>
		Public Overloads Overrides Function Equals(obj As Object) As Boolean
			If Me Is obj Then
				Return True
			End If
			If (obj Is Nothing) OrElse (obj.[GetType]() IsNot [GetType]()) Then
				Return False
			End If
			Dim castObj As program = DirectCast(obj, program)
			Return (castObj IsNot Nothing) AndAlso (m_id = castObj.id)
		End Function
		''' <summary>
		''' 用唯一值实现GetHashCode
		''' </summary>
		Public Overloads Overrides Function GetHashCode() As Integer
			Dim hash As Integer = 57
			hash = 27 * hash * m_id.GetHashCode()
			Return hash
		End Function
		#End Region
	End Class
End Namespace
